RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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IFSTK.REQ; 1 


Version: *v04-000' 


ARPES SEASEL ITEC SS TTT TT eT eer r titi TTS TTT TIT PTT ITT TT iti titititt 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SU 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
os vannsrchatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTI 
it CORPORATION. 


LICENSE AND WITH THE 


CE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF 175 


* DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
* SOFTWARE ON EQUIPMENT WHICH 
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++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Definitions related to the IF stack, for nested .IF commands. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 
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® 
® 
® 
® 
® 
© 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
* 


RAL 

IFSTK_SIZE = 10, ! Up to 10 levels of .IFs. 

IFSTK_DEPTH = -1, ! Index into the IFSTK where the current depth is saved. 
IFSTK_VR = 0, ! Index to VRxxxx information. 

IFSTK_B = ' Logical value in effect at this time. 

IFSTK_SOURCE = 2, | The handler_code of the command that made this entry. 
IFSTK_REQ_D = ! ,REQUIRE depth at which .IF must terminate. 
IFSTK-IPAGEN = i, ! Input file page number. 

IFSTK_ISEQN = ! Input file sequence number. 


| 
NN eee eee 
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] phot was interrupted. 
g for the .else branch. 


*N +71 + B )J ! Leave room for the Oth nesting level. 

STACK + (If J eql IFSTK DEPTH oe 
en 
else ZUPVAL®(1 + 8#] + J) ) ); 


J;N= tS te = 
L*¢ 
End of IFSTK.REQ 
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